use GD::Graph::linespoints;
use Test::More;
require 'save.pl';
 
print STDERR "Processing sample43\n";
 
@data = ( 
    ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
    [1,  2,  3,  4,  5,  6,  7,  8,  9],
);
 
$my_graph = new GD::Graph::linespoints( );
 
$my_graph->set( 
        x_label => 'X Label',
        y_label => 'Y label',
        title => 'A Lines and Points Graph',
        y_max_value => 10,
        y_tick_number => 5,
        y_label_skip => 2,
        y_long_ticks => 1,
        x_tick_length => 2,
        markers => [1],
 
        skip_undef => 1,
 
        transparent => 0,
 
) or warn $my_graph->error;
$my_graph->set_legend( 'data set 1' );
$my_graph->plot(\@data);
# Vertical line
my $x_zero = $my_graph->{left};         # abs zero point co-ord
my $x_step = $my_graph->{x_step};       # x step pixels
my $xp = $x_zero + $x_step * 5;      # the 5th data point abs x co-ord
my $t = $my_graph->{top};               # top abs y co-ord
my $b = $my_graph->{bottom};            # bottom abs y co-ord
my $mclr = 2;
$my_graph->{graph}->line($xp, $t, $xp, $b, $mclr);

save_chart($my_graph, 'sample43');
